﻿Public Class ucUsuarios

    Private Sub btnAlta_Click(sender As Object, e As EventArgs) Handles btnAlta.Click

        Dim f As New frmUsuarioAlta
        f.ShowDialog(Me)


        'Actualizo grilla
        'mnuPrincipal.btnUsuarios_Click(sender, e) Esto no actualizaba por cuestiones de User Control
        cn.LlenarGrilla(varUcUsuarios.dgvUsuarios, sqlConsulta)

    End Sub

    Private Sub btnModificacion_Click(sender As Object, e As EventArgs) Handles btnModificacion.Click

        Dim f As New frmUsuarioModificacion
        f.ShowDialog(Me)


        'Actualizo grilla
        sqlConsulta = "SELECT u.Id, CONCAT(Nombre, ' ', Apellido) As ""Nombre y apellido"", Username As Usuario, Email, Telefono, r.Name As Rango"
        sqlConsulta = sqlConsulta & " FROM users u LEFT JOIN roles r ON u.rango = r.Id"
        sqlConsulta = sqlConsulta & " Where u.Activo=1"
        If varNombreUsuarioSistema <> "CTSdatos" Then sqlConsulta = sqlConsulta & " AND u.Id<>1"
        cn.LlenarGrilla(varUcUsuarios.dgvUsuarios, sqlConsulta)

    End Sub

    Private Sub btnEliminar_Click(sender As Object, e As EventArgs) Handles btnEliminar.Click

        Try

            'Si el usuario no es Admin entonces no permito ingresar
            If varIdUsuarioSistema <> 1 Then
                MsgBox("No tiene permisos", vbOKOnly + vbExclamation, "Atención")
                Exit Sub
            End If

            'Si selecciono NO salgo
            If MsgBox("Si elimina al usuario también se eliminarán todos los datos asociados" & Chr(13) & "¿Desea eliminar el usuario seleccionado?", vbYesNo + vbExclamation, "Atención") = vbNo Then
                Exit Sub
            End If

            sql = "UPDATE users SET Activo=0 WHERE id=" & varUcUsuarios.dgvUsuarios.SelectedRows(0).Cells("id").Value
            Dim cmd As New MySql.Data.MySqlClient.MySqlCommand(sql)

            cn.ExecNonQuery(cmd)

            MsgBox("Se eliminó correctamente", vbOKOnly + vbInformation, "Proceso exitoso")

            'Actualizo grilla
            sqlConsulta = "SELECT u.Id, CONCAT(Nombre, ' ', Apellido) As ""Nombre y apellido"", Username As Usuario, Email, Telefono, r.Name As Rango"
            sqlConsulta = sqlConsulta & " FROM users u LEFT JOIN roles r ON u.rango = r.Id"
            sqlConsulta = sqlConsulta & " Where u.Activo=1"
            If varNombreUsuarioSistema <> "CTSdatos" Then sqlConsulta = sqlConsulta & " AND u.Id<>1"
            cn.LlenarGrilla(varUcUsuarios.dgvUsuarios, sqlConsulta)

        Catch ex As Exception
            MensajeError()
        End Try

    End Sub

    Private Sub pbLogo_Click(sender As Object, e As EventArgs) Handles pbLogo.Click
        Process.Start("IEXPLORE", "www.ls-arg.com.ar")
    End Sub
End Class
